home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_9178.txt < prev    next >
Text File  |  1989-01-07  |  2KB  |  69 lines
  1. -- card: 9178 from stack: in
  2. -- bmap block id: 12920
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: peeklong
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=362 top=55 right=78 bottom=417
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put empty into field "data"
  23.   ask "Peek At " with "411000"
  24.   if it is empty then exit mouseup
  25.   show  field "data"
  26.   put it into address
  27.   put address into field "data"
  28.   repeat with i=1 to 10
  29.     put space & Space & peeklong(address,L) after field "data"
  30.     put last word of field "data" into address
  31.   end repeat
  32.   put return & return & "Click Mouse to Exit Demo" after field "data"
  33.   wait until the mouseclick
  34.   hide  field "data"
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part contents for background part 68
  40. ----- text -----
  41. Peeklong returns the unsigned 32-bit integer stored at a given address. This value is represented in hexadecimal, but you may use the HexToDec XFCN provided in this stack to convert the value to a decimal if you wish.
  42.  
  43. A typical useage of peeklong would be:
  44.  
  45.                     put peeklong("411000") into temp
  46.  
  47. On the Mac Plus, this would put the value 4CDF0007 into the variable temp.
  48.  
  49. As an option, you may include a second parameter with the Peeklong XFCN. If peeklong detects a second parameter, it returns a 2-line result that consists of the longinteger stored at the given address in the first line and the next viable address (the original address+8) in the second line. This option provides a simple and effective way to use peeklong in a script to peek into a range of addresses. 
  50.  
  51. See the demo on this card for an example.  
  52.  
  53. The address provided to peeklong must be even or an error will result.
  54.  
  55. -- part contents for background part 69
  56. ----- text -----
  57. 411000  4CDF0007
  58. 411004  554F2F00
  59. 411008  2F0148E7
  60. 41100C  60007000
  61. 411010  6112301F
  62. 411014  225F3F40
  63. 411018  00042F38
  64. 41101C  029A6602
  65. 411020  584F4E75
  66. 411024  4E560000
  67. 411028
  68.  
  69. Click Mouse to Exit Demo